home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Demos / ByCompany / TipTop_Software / TipTop / Supplement / src / Z301 / vuplfile.t < prev    next >
Text File  |  1994-05-08  |  274b  |  14 lines
  1.     echo "Uploading %item to VMS using DCL create command"
  2.     pat
  3.     if S>2400 pt1; ena -t
  4.     putw "set terminal/hostsync/noecho\r"
  5.     putw "create %item\r"
  6.     sleep 10
  7.     f -xHr %item
  8.     pat 1 "\044"
  9.     put "\032"
  10.     wait -f30
  11.     if !1 echo "create failed!"
  12.     putw "set terminal/echo\r"
  13.     dis -Htx
  14.